home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aac.d64 / football (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  29KB  |  920 lines
  1. 1 GOSUB18000
  2. 2 GOTO12000
  3. 4 CX=5:SP=0
  4. 5 CO=6:CB=0
  5. 6 LE$="0":L$="0":RE$="0":PE=0:IT=0:XX=0:YY=0:FL=0:FR=0:DD=0:GN=0:PP=0:PR=0
  6. 7 L1=0:L2=0:L3=0:L4=0:L5=0:L6=0:L7=0:L8=0:L9=0:PY=0:CC$="0"
  7. 8 B1=0:B2=0:B3=0:B4=0:B5=0:B6=0:B7=0:GN=0:PP=0:PY=0
  8. 9 IFSP=1THENPRINT"[147]  OFFENSE HAS CHOSEN SPREAD FORMATION":GOSUB13020
  9. 10 PRINT"[147]       SET UP YOUR DEFENSE"
  10. 15 PRINT""
  11. 20 PRINT"LINE           [166]     [166] [166] [166] [166]  .  [166]"
  12. 25 PRINT"                            9-BLITZ"
  13. 30 PRINT"LINEBACKERS  .      .   .   .      ."
  14. 40 PRINT"             1      2   3   4      5"
  15. 50 PRINT"                   .    .    ."
  16. 60 PRINT"                   6    7    8"
  17. 70 PRINT"========================================"
  18. 80 PRINT"DEFENSIVE   .                       ."
  19. 90 PRINT"BACKS       1                       2"
  20. 100 PRINT"            .      .    .    .      ."
  21. 110 PRINT"            3      4    5    6      7"
  22. 120 PRINT"LEFT END - CHARGE OR HOLD"
  23. 123 GET LE$:IFLE$="" THEN 123
  24. 130 IF LE$="C" THEN POKE 1159,78:GOSUB910:GOTO220
  25. 140 IF LE$="H" THEN POKE 1159,76:GOSUB 910:GOTO220
  26. 150 IFLE$<>"C" ANDLE$<>"H" THENGOSUB 900:GOTO120
  27. 220 PRINT"[145]LINE - CHARGE OR HOLD"
  28. 223 GET L$:IFL$="" THEN 223
  29. 230 IFL$="C"THEN FOR I=1165 TO 1171 STEP2:POKEI,30:NEXTI:GOSUB910:GOTO320
  30. 240 IF L$="H" THEN FOR I=1165 TO 1171 STEP2:POKEI,70:NEXTI:GOSUB 910:GOTO320
  31. 250 IFL$<>"C" ANDL$<>"H" THENGOSUB 900:PRINT"":GOTO220
  32. 320 PRINT"[145]RIGHT END - CHARGE OR HOLD"
  33. 323 GET RE$:IFRE$="" THEN 323
  34. 330 IF RE$="C" THEN POKE 1177,77:GOSUB910:GOTO400
  35. 340 IF RE$="H" THEN POKE 1177,122:GOSUB 910:GOTO400
  36. 350 IFRE$<>"C" ANDRE$<>"H" THENGOSUB 900:PRINT"":GOTO320
  37. 400 PRINT"SELECT LINEBACKERS - ENTER 0 WHEN DONE"
  38. 410 GET X$:IFX$=""THEN 410
  39. 413 IF X$<"0"ORX$>"9"THEN 410
  40. 420 IF X$="0"THEN PRINT"[145][145]":GOSUB905:GOTO600
  41. 430 X=VAL(X$)
  42. 440 ON XGOTO510,520,530,540,550,560,570,580,590
  43. 510 L1=1:POKE1277,230:PRINT"[145][145]":CO=CO-1:(null) TO1000
  44. 520 L2=1:POKE1284,230:PRINT"[145][145]":CO=CO-1:(null) TO1000
  45. 530 L3=1:POKE1288,230:PRINT"[145][145]":CO=CO-1:(null) TO1000
  46. 540 L4=1:POKE1292,230:PRINT"[145][145]":CO=CO-1:(null) TO1000
  47. 550 L5=1:POKE1299,230:PRINT"[145][145]":CO=CO-1:(null) TO1000
  48. 560 L6=1:POKE1403,230:PRINT"[145][145]":CO=CO-1:(null) TO1000
  49. 570 L7=1:POKE1408,230:PRINT"[145][145]":CO=CO-1:(null) TO1000
  50. 580 L8=1:POKE1413,230:PRINT"[145][145]":CO=CO-1:(null) TO1000
  51. 590 L9=1:POKE1174,30:POKE1214,102:PRINT"[145][145]":CO=CO-1:GOTO1000
  52. 600 PRINT"SELECT DEEP BACKS"
  53. 610 GET V$:IF V$=""GOTO610
  54. 620 IF V$<"1" OR V$>"7" THEN 610
  55. 630 V=VAL(V$)
  56. 640 ON V GOTO710,720,730,740,750,760,770
  57. 710 B1=1:POKE1556,230:PRINT"[145][145]":CO=CO-1:CB=CB+1:(null) TO1020
  58. 720 B2=1:POKE1580,230:PRINT"[145][145]":CO=CO-1:CB=CB+1:(null) TO 1020
  59. 730 B3=1:POKE1676,230:PRINT"[145][145]":CO=CO-1:CB=CB+1:(null) TO 1020
  60. 740 B4=1:POKE1683,230:PRINT"[145][145]":CO=CO-1:CB=CB+1:(null) TO1020
  61. 750 B5=1:POKE1688,230:PRINT"[145][145]":CO=CO-1:CB=CB+1:(null) TO1020
  62. 760 B6=1:POKE1693,230:PRINT"[145][145]":CO=CO-1:CB=CB+1:(null) TO1020
  63. 770 B7=1:POKE1700,230:PRINT"[145][145]":CO=CO-1:CB=CB+1:(null) TO1020
  64. 780 IFCB>CX+1THENPRINT"[147]YOU ARE ONLY ALLOWED"(CX+1)"MEN BACK":GOSUB13020:GOTO5
  65. 790 CX=CB
  66. 800 GOSUB920:PRINT"[145]YOU HAVE NOW USED ALL OF YOUR MEN."
  67. 810 PRINT"IS THIS O.K. --YES OR NO"
  68. 820 GET N$:IF N$="" THEN 820
  69. 825 IF N$<>"N"AND N$<>"Y" THEN 820
  70. 830 IF N$="Y"THEN GOTO2000
  71. 870 GOTO5
  72. 900 PRINT"":RETURN
  73. 905 FOR I=1824 TO 1864:POKEI,32:NEXT:RETURN
  74. 910 FOR I=1784 TO 1824:POKEI,32:NEXT:RETURN
  75. 920 FOR I=1784 TO 2023:POKEI,32:NEXT:RETURN
  76. 1000 IF CO<1 THEN GOTO800
  77. 1010 PRINT"YOU NOW HAVE"CO"[157] MEN TO PLACE[145][145][145][145][146]":GOTO400
  78. 1020 IF CO<1 THEN GOTO780
  79. 1030 PRINT"YOU NOW HAVE"CO"[157] MEN TO PLACE[145][145][145][145][146]":GOTO600
  80. 2000 IF SP=1 THEN PRINT"[147]        SPREAD FORMATION":GOSUB9200
  81. 2005 PRINT"[147] THE DEFENSE HAS"CB"MEN BACK"
  82. 2010 PRINT"SET UP YOUR PLAY"
  83. 2020 PRINT"D- DIRECT HANDOFF"
  84. 2030 PRINT"T- TRAP PLAY"
  85. 2033 PRINT"P- PITCHOUT (WIDE RUN)"
  86. 2035 PRINT"S- SCREEN PASS"
  87. 2040 PRINT"H- HOOK PASS"
  88. 2045 PRINT"C- CENTRE PASS (POST PATTERN)"
  89. 2050 PRINT"W- WIDE PASS"
  90. 2070 PRINT"L- LONG PASS"
  91. 2075 PRINT"*- SPREAD OR SHORT PUNT FORMATION"
  92. 2080 PRINT"K- KICK"
  93. 2085 PRINT"F- FIELD GOAL"
  94. 2090 GET P$:IF P$="" GOTO2090
  95. 2100 IFP$="D"THEN PRINT"HANDOFF -LEFT,CENTRE OR RIGHT?":GOSUB5000:GOSUB5200
  96. 2120 IF P$="T"THEN PRINT"TRAP PLAY -LEFT,CENTRE OR RIGHT?":GOSUB5000:GOSUB5200
  97. 2125 IF P$="D" OR P$="T" GOTO3000
  98. 2130 IFP$="P"THENPRINT"WIDE RUN -LEFT OR RIGHT?":GOSUB 5100:GOSUB5200:GOTO3300
  99. 2140 IFP$="S"THEN PRINT"SCREEN PASS -LEFT OR RIGHT?":GOSUB5100:GOSUB5200
  100. 2145 IF P$="S" THEN 3400
  101. 2150 IFP$="H"THENPRINT"HOOK PASS -LEFT OR RIGHT?":GOSUB5100:GOSUB5200:GOTO3500
  102. 2155 IFP$="C"THENPRINT"POST PATTERN PASS, -DOWN THE CENTRE":GOSUB5200:GOTO3600
  103. 2170 IFP$="W"THENPRINT"WIDE PASS -LEFT OR RIGHT?":GOSUB5100:GOSUB5200:GOTO3700
  104. 2180 IFP$="L"THEN PRINT"LONG PASS -LEFT,CENTRE OR RIGHT?":GOSUB5000:GOSUB5200
  105. 2190 IFP$="L"THEN GOTO3800
  106. 2200 IFP$="K"THEN PRINT"KICK":GOSUB5200:GOTO3900
  107. 2210 IFP$="F"THEN PRINT"FIELD GOAL ATTEMPT":GOTO2340
  108. 2220 IFP$="*" THEN SP=1:GOTO2400
  109. 2300 IFP$<>"D"ANDP$<>"T"ANDP$<>"P"ANDP$<>"S"ANDP$<>"H"ANDP$<>"C"THEN GOTO2310
  110. 2310 IFP$<>"W"ANDP$<>"L"ANDP$<>"K"ANDP$<>"F"ANDP$<>"*"THEN GOTO2090
  111. 2340 IFN=OT OR YL>49 THEN GOTO2360
  112. 2350 GOSUB5200:GOTO8800
  113. 2360 PRINT:PRINT"YOU ARE TOO FAR AWAY TO"
  114. 2370 PRINT"    TRY A FIELD GOAL.":GOSUB13000:GOTO2000
  115. 2400 PRINT"[147]YOU HAVE CHOSEN TO USE THE 'SPREAD' OR  'SHORT PUNT' FORMATION"
  116. 2410 PRINT"IF YOU USE THIS FORMATION, YOU WILL LOSE 10 YARDS ON A GROUNG PLAY"
  117. 2420 PRINT"  BUT YOUR QUARTERBACK CANNOT[146] BE SACKED."
  118. 2430 PRINT"THE DEFENSE NOW HAS AN OPPORTUNITY TO"
  119. 2440 PRINT"  CHANGE ITS ALIGNMENT."
  120. 2441 PRINT"  IS THIS O.K."
  121. 2445 PRINT"    (Y)ES OR (N)O"
  122. 2450 GET Q$:IFQ$=""THEN2450
  123. 2455 IF Q$<>"Y"ANDQ$<>"N"THEN2450
  124. 2460 IF Q$="Y" THEN GOTO5
  125. 2470 SP=0:GOTO2000
  126. 2999 REM*** HANDOFF AND TRAP PLAYS ***
  127. 3000 IF P$="D" AND L$="C" THEN 8010
  128. 3010 IF P$="D" AND L$="H" GOTO3100
  129. 3020 IF P$="T" AND L$="H"THEN 8010
  130. 3030 IF P$="T" AND L$="C"THEN 3100
  131. 3100 IFQ$="R" GOTO3150
  132. 3110 IF Q$="C"GOTO3200
  133. 3120 IF Q$="L"GOTO3250
  134. 3150 IF L2=1 THEN 8020
  135. 3160 IF L3=1 THEN 8031
  136. 3170 IF L6=1 THEN 8040
  137. 3175 IF L7=1 THEN 8050
  138. 3180 IF B5=1 THEN 8060
  139. 3190 IF B5=0 THEN 8070
  140. 3200 IF L3=1 THEN 8020
  141. 3210 IF L4=1 OR L2=1THEN 8031
  142. 3220 IF L7=1 THEN 8040
  143. 3230 IF L6=1 OR L8=1 THEN 8050
  144. 3240 GOTO3180
  145. 3250 IF L4=1 THEN 8020
  146. 3260 IF L3=1 THEN 8031
  147. 3270 IF L8=1 THEN 8040
  148. 3275 IF L7=1 THEN 8050
  149. 3280 GOTO3180
  150. 3300 IF Q$="R" THEN3320:REM****"P" PLAY
  151. 3310 IF Q$="L" THEN3350
  152. 3320 IF LE$="H" THEN3324:REM**"P"-R-
  153. 3322 IF LE$="C" THEN 3330
  154. 3324 IF L2=1 THEN 8000:  REM**P-R-H**
  155. 3326 IF L2=0 THEN 3160
  156. 3330 IF L1=1 THEN8040:   REM**P-R-C**
  157. 3332 IF B1=1 THEN8050
  158. 3334 IF B3=1 THEN8060
  159. 3336 IF B3=0 THEN8070
  160. 3350 IF RE$="H" THEN3354:REM**"P"-L-
  161. 3352 IF RE$="C" THEN 3360
  162. 3354 IF L4=1 THEN 8000:  REM**P-L-H**
  163. 3356 IF L4=0 THEN 3160
  164. 3360 IF L5=1 THEN8040:   REM**P-L-C**
  165. 3362 IF B2=1 THEN8050
  166. 3364 IF B7=1 THEN8060
  167. 3366 IF B7=0 THEN8070
  168. 3400 REM ***** SCREEN PASS ******
  169. 3401 IF Q$="R" GOTO3420
  170. 3410 IF Q$="L" GOTO3450
  171. 3420 IF L1=1 THEN 8080:REM**"S" RIGHT**
  172. 3430 IF B1=1 THEN 8090
  173. 3440 IF B3=1 THEN 8095
  174. 3445 IF B3=0 THEN 8100
  175. 3450 IF L5=1 THEN 8080:REM**"S" LEFT **
  176. 3460 IF B2=1 THEN 8090
  177. 3470 IF B7=1 THEN 8095
  178. 3480 IF B7=0 THEN 8100
  179. 3500 REM **** HOOK PASS *****
  180. 3501 IF Q$="R" GOTO3520
  181. 3510 IF Q$="L" GOTO3550
  182. 3520 IF L6=1 THEN 8110:REM**"H" RIGHT**
  183. 3525 IF L7=1 THEN 8120
  184. 3530 IF B5=1 THEN 8130
  185. 3535 IF B5=0 THEN 8140
  186. 3550 IF L8=1 THEN 8110:REM**"H" LEFT **
  187. 3555 GOTO3525
  188. 3600 REM*** POST PATTERN PASS ****
  189. 3610 IF L7=1 THEN 8150
  190. 3620 IF L6=1 OR L8=1 THEN 8160
  191. 3630 IF B5=1 THEN 8130
  192. 3640 IF B5=0 THEN 8140
  193. 3700 REM *** WIDE PASS ******
  194. 3710 IF Q$="R" GOTO3730
  195. 3720 IF Q$="L" GOTO3750
  196. 3730 IF B1=1 THEN 8170:REM "W", RIGHT***
  197. 3735 IF B3=1 THEN 8180
  198. 3740 IF B3=0 THEN 8190
  199. 3750 IF B2=1 THEN 8170:REM "W", LEFT****
  200. 3755 IF B7=1 THEN 8180
  201. 3760 IF B7=0 THEN 8190
  202. 3800 REM *** LONG PASS ***
  203. 3802 IF SP=1 THEN GOTO3810
  204. 3805 IF LE$="C"ANDL$="C"ANDRE$="C"ANDL9=1 THEN GOTO8230
  205. 3810 IF Q$="R"GOTO3840
  206. 3820 IF Q$="C"GOTO3860
  207. 3830 IF Q$="L"GOTO3880
  208. 3840 IF B3=1 THEN 8200:REM **LONG-RIGHT
  209. 3850 IF B4=1 THEN 8210
  210. 3855 IF B4=0 THEN 8220
  211. 3860 IF B5=1 THEN 8200:REM ** LONG-LEFT
  212. 3870 IF B4=1 OR B6=1 THEN 8210
  213. 3875 GOTO8220
  214. 3880 IF B7=1 THEN 8200:REM**LONG-CENTRE
  215. 3890 IF B6=1 THEN 8210
  216. 3895 GOTO8220
  217. 3900 REM *** KICK ***
  218. 3910 IFLE$="C"ANDL$="C"ANDRE$="C" THENGOTO8250:REM ** SHORT K **
  219. 3920 GOTO8260:REM ** LONG K **
  220. 5000 GET Q$:IFQ$="" THEN 5000
  221. 5010 IF Q$="L"THEN PRINT"  LEFT"
  222. 5020 IF Q$="C"THEN PRINT"  CENTRE"
  223. 5030 IFQ$="R" THEN PRINT"  RIGHT"
  224. 5040 IFQ$<>"R" ANDQ$<>"C" ANDQ$<>"L" THEN5000
  225. 5050 RETURN
  226. 5100 GET Q$:IFQ$="" THEN 5100
  227. 5110 IF Q$="L"THEN PRINT"  LEFT"
  228. 5130 IFQ$="R" THEN PRINT"  RIGHT"
  229. 5140 IFQ$<>"R" ANDQ$<>"L" THEN5100
  230. 5150 RETURN
  231. 5200 PRINT"IS THIS THE PLAY YOU WANT-Y OR N"
  232. 5210 GET Z$:IF Z$="" THEN 5210
  233. 5220 IF Z$<>"Y" AND Z$<>"N" THEN 5210
  234. 5230 IF Z$="N" THEN 2000
  235. 5240 PRINT"[147]"
  236. 5250 PRINT"    DEFENSIVE SETUP IS:"
  237. 5255 PRINT
  238. 5260 PRINT"         .   .   .   .   .    DEFENSIVE":PRINT
  239. 5265 PRINT"         .               .    BACKS":PRINT
  240. 5270 PRINT" [160]    ========================"
  241. 5275 PRINT"             .   .   .        SECONDARY"
  242. 5280 PRINT"         .   .   .   .   ."
  243. 5285 PRINT"          [166] . [166] [166] [166] [166]   [166]     LINE"
  244. 5290 PRINT"
  245. 5295 [139]B7[178]1[167] [151]1153,230
  246. 5300 [139]B6[178]1[167] [151]1157,230
  247. 5305 [139]B5[178]1[167] [151]1161,230
  248. 5310 [139]B4[178]1[167] [151]1165,230
  249. 5315 [139]B3[178]1[167] [151]1169,230
  250. 5320 [139]B2[178]1[167] [151]1233,230
  251. 5325 [139]B1[178]1[167] [151]1249,230
  252. 5330 [139]L9[178]1 [167] [151]1516,2:[151]1556,77
  253. 5335 [139]L8[178]1 [167] [151]1357,230
  254. 5340 [139]L7[178]1 [167] [151]1361,230
  255. 5345 [139]L6[178]1 [167] [151]1365,230
  256. 5350 [139]L5[178]1 [167] [151]1433,230
  257. 5355 [139]L4[178]1 [167] [151]1437,230
  258. 5360 [139]L3[178]1 [167] [151]1441,230
  259. 5365 [139]L2[178]1 [167] [151]1445,230
  260. 5370 [139]L1[178]1 [167] [151]1449,230
  261. 5375 [139] RE$[178]"H"[167] [151]1568,80
  262. 5380 [139] RE$[178]"C"[167] [151]1568,78
  263. 5385 [139] LE$[178]"H"[167] [151]1554,79
  264. 5390 [139] LE$[178]"C"[167] [151]1554,77
  265. 5395 [139] L$[178]"H"[167] [129] I[178]1558 [164] 1564[169]2:[151]I,69:[130]
  266. 5400 [139] L$[178]"C"[167] [129] I[178]1558 [164] 1564[169]2:[151]I,93:[130]
  267. 5405 [129] DL[178]1 [164] 500:[130]:[153]"YOUR PLAY"
  268. 5410 [139]P$[178]"L"[175]Q$[178]"L"[167] XA[178]1193:[137]5505
  269. 5415 [139]P$[178]"L"[175]Q$[178]"C"[167] XA[178]1201:[137]5505
  270. 5420 [139]P$[178]"L"[175]Q$[178]"R"[167] XA[178]1209:[137]5505
  271. 5425 [139] P$[178]"W"[175]Q$[178]"L"[167] XA[178]1273:[137]5510
  272. 5430 [139] P$[178]"W"[175]Q$[178]"R"[167] XA[178]1289:[137]5510
  273. 5435 [139] P$[178]"H"[175]Q$[178]"L"[167] XA[178]1397:[137]5515
  274. 5440 [139] P$[178]"H"[175]Q$[178]"R"[167] XA[178]1405:[137]5515
  275. 5445 [139] P$[178]"C"[167] XA[178]1401:[137]5520
  276. 5450 [139] P$[178]"T"[167] [141]5490:[137]5525
  277. 5455 [139] P$[178]"D"[167] [141]5490:[137]5530
  278. 5460 [139] P$[178]"P" [175] Q$[178]"L" [167] XA[178]1596:[137]5535
  279. 5465 [139] P$[178]"P" [175] Q$[178]"R" [167] XA[178]1606:[137]5535
  280. 5470 [139] P$[178]"S"[175]Q$[178]"L"[167] XA[178]1473:[137]5540
  281. 5475 [139] P$[178]"S"[175]Q$[178]"R"[167] XA[178]1489:[137]5540
  282. 5480 [139] P$[178]"F"[167] XA[178]1601:[137]5550
  283. 5485 [139] P$[178]"K"[167] XA[178]1601:[137]5545
  284. 5490 [139]Q$[178]"L"[167] XA[178]1599:[142]
  285. 5495 [139]Q$[178]"C"[167] XA[178]1601:[142]
  286. 5500 [139]Q$[178]"R"[167] XA[178]1603:[142]
  287. 5505 [153],"ON---LONG PASS":[137]5555
  288. 5510 [153],"ON---WIDE PASS":[137]5555
  289. 5515 [153],"ON---HOOK PASS":[137]5555
  290. 5520 [153],"ON---POST PATTERN PASS":[137]5555
  291. 5525 [153],"ON---TRAP PLAY":[137]5555
  292. 5530 [153],"ON---DIRECT HANDOFF":[137]5555
  293. 5535 [153],"ON---PITCHOUT":[137]5555
  294. 5540 [153],"ON---SCREEN PASS":[137]5555
  295. 5545 [153],"ON---KICK":[137]5555
  296. 5550 [153],"ON---FIELD GOAL ATTEMPT":[137]5555
  297. 5555 [129] I[178]1 [164] 4:[151]XA,32:[129]DL[178]1 [164] 300:[130]
  298. 5560 [151]XA,30:[129] DL[178]1 [164] 400:[130]DL:[130]I:[142]
  299. 6000 [139] N[178]OT [167] YL[178]YL[170]GN:[137]6020
  300. 6010 YL[178]YL[171]GN
  301. 6020 [139] YL[177]55 [167] [141]7000
  302. 6025 TG[178]TG[171]GN
  303. 6030 [139] N[178]DT [175] YL[179]1 [167] [137]7050
  304. 6034 [139]IT[178]1 [176] FL[178]1 [176] PE[178]1 [176] GN[178]0[167] [137]6040
  305. 6035 [139]FR[178]1[167] [141]9200:[153]"--FUMBLE ON THE PLAY":[141]9200:[137]10500
  306. 6040 [139] N[178]OT [175] YL[179]1 [167] [137]7500
  307. 6060 DN[178]DN[170]1
  308. 6070 [139] DN[177]3 [175]TG[177]0[167] [153]"BALL GOES OVER ON DOWNS":[137]6150
  309. 6080 [139]TG[179]1[167]DN[178]1:TG[178]10:[141]6100:[139]YL[179]10[175]N[178]DT[167] TG[178]YL
  310. 6090 [137]15050
  311. 6100 [139]SD[178]1[167]SD[178]0:[142]
  312. 6105 [129] J[178]1 [164] 8:[153]""
  313. 6110 [139]J[173]2[178][181](J[173]2)[167] [153]"";
  314. 6115 [153]" FIRST DOWN WAITONONON";
  315. 6120 [129] I[178]1 [164] 200:[130]I:[130]J
  316. 6125 F(OT)[178]F(OT)[170]1:[142]
  317. 6150 X[178]OT:OT[178]DT:DT[178]X
  318. 6170 [153] "" PL$(OT)" NOW HAS THE BALL":[141]13000
  319. 6180 DN[178]1:TG[178]10:[139]YL[179]10[175]N[178]DT[167]TG[178]YL
  320. 6200 [137] 15050
  321. 7000 YL[178]110[171]YL
  322. 7010 [139] N[178]1 [167] N[178]2:[137]7030
  323. 7020 [139] N[178]2 [167] N[178]1
  324. 7030 [142]
  325. 7050 [141]9200
  326. 7051 [153]"LOAD    * * * * * * * * *"
  327. 7060 [153]"    *               *"
  328. 7070 [153]"    *   TOUCHDOWN WAIT  *"
  329. 7080 [153]"    *               *
  330. 7090 PRINT"    * * * * * * * * *":PRINT""
  331. 7095 SC(OT)=SC(OT)+7:GOSUB16600:GOTO13200
  332. 7500 GOSUB9200
  333. 7501 PRINT"[147]    * * * * * * * * * * *"
  334. 7510 PRINT"    *                   *"
  335. 7520 PRINT"    *   SAFETY TOUCH  [146]  *"
  336. 7530 PRINT"    *                   *
  337. 7540 [153]"    * * * * * * * * * * *":[153]""
  338. 7550 SC(DT)[178]SC(DT)[170]2:[141]16600
  339. 7555 [153]"LOAD":[153] PL$(DT)" NOW HAS THE OPTION OF:":[137]8885
  340. 7900 [143]
  341. 7910 [141]9000:[129] DL[178]1 [164] 500:[130]:[142]
  342. 8000 [141]7900:[153]"LOAD     PITCHOUT":TT[178]45:[141]16010
  343. 8001 [139] FL[178]1 [167] [137]10000
  344. 8002 [139]XX[179]3[167] GN[178][171]4:[137]8006
  345. 8003 [139]XX[179]7[167] GN[178][171]6:[137]8006
  346. 8004 GN[178][171]8
  347. 8006 [139] SP[178]1 [167] GN[178]GN[171]10
  348. 8007 [141]9200:[153]  GN  "YARD LOSS"
  349. 8008 [139] PE[178]1 [167] [141]11000:[139]CC$[178]"A"[167] [137]11300
  350. 8009 R(OT)[178]R(OT)[170]GN:[137]6000
  351. 8010 [141]7900:[153]"LOAD     LINE PLAY ":TT[178]40:[141]16010
  352. 8011 [139] FL[178]1 [167] [137]10000
  353. 8012 [139] XX[179]2[167] GN[178][171]3:[137]8016
  354. 8013 [139] XX[179]5[167] GN[178][171]1:[137]8016
  355. 8014 [139] XX[179]8[167] GN[178][171]2:[137]8016
  356. 8015 GN[178][171]3
  357. 8016 [137]8006
  358. 8020 [141]7900:[153]"LOAD     LINE PLAY ":TT[178]40:[141]16010
  359. 8021 [139] FL[178]1 [167] [137]10000
  360. 8022 [139] XX[179]2[167] GN[178]4:[137]8026
  361. 8023 [139] XX[179]5[167] GN[178]1:[137]8026
  362. 8024 [139] XX[179]8[167] GN[178]2:[137]8026
  363. 8025 GN[178]3
  364. 8026 [139]DD[178]1 [167] [153]"    RUNNER BREAKS AWAY WAIT":GN[178]GN[172]2
  365. 8027 [139] SP[178]1 [167] GN[178]GN[171]10
  366. 8028 [141]9200:[153]  GN  "YARD GAIN"
  367. 8029 [139] PE[178]1 [167] [141]11000:[139]CC$[178]"A"[167] [137]11300
  368. 8030 R(OT)[178]R(OT)[170]GN:[137]6000
  369. 8031 [141]7900:[153]"LOAD     LINE PLAY ":TT[178]40:[141]16010
  370. 8032 [139] FL[178]1 [167] [137]10000
  371. 8033 [139] XX[179]2[167] GN[178]5:[137]8037
  372. 8034 [139] XX[179]5[167] GN[178]6:[137]8037
  373. 8035 [139] XX[179]8[167] GN[178]7:[137]8037
  374. 8036 GN[178]8
  375. 8037 [137]8026
  376. 8040 [141]7900:[153]"LOAD     RUNNING PLAY ":TT[178]45:[141]16010
  377. 8041 [139] FL[178]1 [167] [137]10000
  378. 8042 [139] XX[179]2[167] GN[178]9:[137]8046
  379. 8043 [139] XX[179]5[167] GN[178]10:[137]8046
  380. 8044 [139] XX[179]8[167] GN[178]11:[137]8046
  381. 8045 GN[178]12
  382. 8046 [137]8026
  383. 8050 [141]7900:[153]"LOAD     RUNNING PLAY ":TT[178]45:[141]16010
  384. 8051 [139] FL[178]1 [167] [137]10000
  385. 8052 [139] XX[179]2[167] GN[178]13:[137]8056
  386. 8053 [139] XX[179]5[167] GN[178]14:[137]8056
  387. 8054 [139] XX[179]8[167] GN[178]15:[137]8056
  388. 8055 GN[178]16
  389. 8056 [137]8026
  390. 8060 [141]7900:[153]"LOAD     RUNNING PLAY ":TT[178]45:[141]16010
  391. 8061 [139] FL[178]1 [167] [137]10000
  392. 8062 [139] XX[179]2[167] GN[178]20:[137]8066
  393. 8063 [139] XX[179]5[167] GN[178]23:[137]8066
  394. 8064 [139] XX[179]8[167] GN[178]26:[137]8066
  395. 8065 GN[178]30
  396. 8066 [137]8026
  397. 8070 [141]7900:[153]"LOAD     RUNNING PLAY ":TT[178]45:[141]16010
  398. 8071 [139] FL[178]1 [167] [137]10000
  399. 8072 [139] XX[179]2[167] GN[178]35:[137]8076
  400. 8073 [139] XX[179]5[167] GN[178]38:[137]8076
  401. 8074 [139] XX[179]8[167] GN[178]42:[137]8076
  402. 8075 GN[178]45
  403. 8076 [137]8026
  404. 8080 [141]7900:[153]"LOAD     SCREEN PASS":TT[178]40:[141]16010:[139]FL[178]1[167][137]10000
  405. 8081 PA(OT)[178]PA(OT)[170]1:[139] XX[179]3[167]PP[178][171]3:[203] [164]8086:[143]*** INCOMPLETE**
  406. 8082 [139] XX[179]5[167]PP[178][171]5:[203] [164]8086:[143]*** INCOMPLETE**
  407. 8083 [139]XX[179]7[167]PP[178][171]4:[137]8085:[143]*INTC*
  408. 8084 PP[178][171]6
  409. 8085 [153]"INTERCEPTED BY DEFENSE " PP "YDS FROM LINE":[137]9300
  410. 8086 [153]"" PP" YARD PASS -- INCOMPLETE":PI(OT)[178]PI(OT)[170]1:GN[178]0:[141]9200
  411. 8087 [139]IT[178]1[167][141]13000:[153]"INTERFERENCE CALLED ON THE PLAY":[137]9500
  412. 8089 [137]6000
  413. 8090 [141]7900:[153]"LOAD    SCREEN PASS":TT[178]35:[141]16010:[139]FL[178]1[167][137]10000
  414. 8091 PA(OT)[178]PA(OT)[170]1:[139] XX[179]4[167] GN[178]11:[137]8094
  415. 8092 [139] XX[179]8[167] GN[178]13:[137]8094
  416. 8093 GN[178]15
  417. 8094 [137]8104
  418. 8095 [141]7900:[153]"LOAD    SCREEN PASS":TT[178]40:[141]16010:[139]FL[178]1[167][137]10000
  419. 8096 PA(OT)[178]PA(OT)[170]1:[139] XX[179]4[167] GN[178]15:[137]8099
  420. 8097 [139] XX[179]8[167] GN[178]17:[137]8099
  421. 8098 GN[178]20
  422. 8099 [137] 8104
  423. 8100 [141]7900:[153]"LOAD    SCREEN PASS":TT[178]40:[141]16010:[139]FL[178]1[167][137]10000
  424. 8101 PA(OT)[178]PA(OT)[170]1:[139] XX[179]4[167] GN[178]25:[137]8104
  425. 8102 [139] XX[179]8[167] GN[178]30:[137]8104
  426. 8103 GN[178]35
  427. 8104 [139] DD[178]1 [167] [153]"RUNNER BREAKS AWAYWAIT":GN[178]GN[172]2
  428. 8105 [141]9200:[153]  GN " YARD GAIN"
  429. 8107 [139]PE[178]1[167] [141]11000:[139]CC$[178]"A"[167] CC$[178]"0":[137]11300
  430. 8108 PA(OT)[178]PA(OT)[170]1:PC(OT)[178]PC(OT)[170]1:P(OT)[178]P(OT)[170]GN:[137]6000
  431. 8110 [141]7900:[153]"LOAD     HOOK PASS":TT[178]40:[141]16010:[139]FL[178]1[167][137]10000
  432. 8111 PA(OT)[178]PA(OT)[170]1:[139] XX[179]3[167]PP[178]12:[137]8115
  433. 8112 [139] XX[179]5[167]PP[178]14:[203] [164]8115
  434. 8113 [139]XX[179]8[167]PP[178]16:[137]8115
  435. 8114 PP[178]18
  436. 8115 [139]YY[179]5 [167] [137] 8117:[143] *** INCOMPLETE ***
  437. 8116 [153]"INTERCEPTED BY DEFENSE " PP "YDS FROM LINE":[137]9300
  438. 8117 [153]"" PP" YARD PASS -- INCOMPLETE":PI(OT)[178]PI(OT)[170]1:GN[178]0:[141]9200
  439. 8118 [139]IT[178]1[167][141]13000:[153]"INTERFERENCE CALLED ON THE PLAY":[137]9500
  440. 8119 [137]6000
  441. 8120 [141]7900:[153]"LOAD    HOOK PASS":TT[178]35:[141]16010:[139]FL[178]1[167][137]10000
  442. 8121 PA(OT)[178]PA(OT)[170]1:[139] XX[179]2[167] PP[178]10:[137]8300
  443. 8122 [139] XX[179]3[167] PP[178]8:PR[178]3:[137]8300
  444. 8123 [139] XX[179]5[167] PP[178]10:PR[178]3:[137]8300
  445. 8125 [139] XX[179]7[167] PP[178]10:PR[178]2:[137]8400
  446. 8126 [139] XX[179]8[167] PP[178]7:PR[178]3:[137]8400
  447. 8127 PP[178]8:PR[178]4:[137]8400
  448. 8130 [141]7900:[153]"LOAD    SHORT PASS":TT[178]40:[141]16010:[139]FL[178]1[167][137]10000
  449. 8131 PA(OT)[178]PA(OT)[170]1:[139] XX[179]2[167] PP[178]10:PR[178]15:[137]8400
  450. 8132 [139] XX[179]4[167] PP[178]8:PR[178]15:[137]8400
  451. 8133 [139] XX[179]6[167] PP[178]12:PR[178]18:[137]8400
  452. 8134 [139] XX[179]8[167] PP[178]10:PR[178]16:[137]8400
  453. 8135 PP[178]10:PR[178]14:[137]8400
  454. 8140 [141]7900:[153]"LOAD    SHORT PASS":TT[178]45:[141]16010:[139]FL[178]1[167][137]10000
  455. 8141 PA(OT)[178]PA(OT)[170]1:[139] XX[179]2[167] PP[178]10:PR[178]25:[137]8400
  456. 8142 [139] XX[179]4[167] PP[178]8:PR[178]25:[137]8400
  457. 8143 [139] XX[179]6[167] PP[178]12:PR[178]28:[137]8400
  458. 8144 [139] XX[179]8[167] PP[178]10:PR[178]26:[137]8400
  459. 8145 PP[178]10:PR[178]30:[137]8400
  460. 8150 [141]7900:[153]"LOAD     POST PASS":TT[178]40:[141]16010:[139]FL[178]1[167][137]10000
  461. 8151 PA(OT)[178]PA(OT)[170]1:[139] XX[179]3[167]PP[178]18:[137]8155
  462. 8152 [139] XX[179]5[167]PP[178]20:[203] [164]8155
  463. 8153 [139]XX[179]8[167]PP[178]25:[137]8155
  464. 8154 PP[178]28
  465. 8155 [139]YY[179]5 [167] [137] 8157:[143] *** INCOMPLETE ***
  466. 8156 [153]"INTERCEPTED BY DEFENSE " PP "YDS FROM LINE":[137]9300
  467. 8157 [153]"" PP" YARD PASS -- INCOMPLETE":PI(OT)[178]PI(OT)[170]1:GN[178]0:[141]9200
  468. 8158 [139]IT[178]1[167][141]13000:[153]"INTERFERENCE CALLED ON THE PLAY":[137]9500
  469. 8159 [137]6000
  470. 8160 [141]7900:[153]"LOAD    POST PASS":TT[178]35:[141]16010:[139]FL[178]1[167][137]10000
  471. 8161 PA(OT)[178]PA(OT)[170]1:[139] XX[179]2[167] PP[178]12:[137]8300
  472. 8162 [139] XX[179]5[167] PP[178]10:[137]8300
  473. 8165 [139] XX[179]7[167] PP[178]12:PR[178]2:[137]8400
  474. 8166 [139] XX[179]8[167] PP[178]13:PR[178]3:[137]8400
  475. 8167 PP[178]11:PR[178]4:[137]8400
  476. 8170 [141]7900:[153]"LOAD     WIDE PASS":TT[178]40:[141]16010:[139]FL[178]1[167][137]10000
  477. 8171 PA(OT)[178]PA(OT)[170]1:[139] XX[179]3[167]PP[178]18:[137]8175
  478. 8172 [139] XX[179]5[167]PP[178]20:[203] [164]8175
  479. 8173 [139]XX[179]8[167]PP[178]25:[137]8175
  480. 8174 PP[178]28
  481. 8175 [139]YY[179]5 [167] [137] 8177:[143] *** INCOMPLETE ***
  482. 8176 [153]"INTERCEPTED BY DEFENSE " PP "YDS FROM LINE":[137]9300
  483. 8177 [153]"" PP" YARD PASS -- INCOMPLETE":PI(OT)[178]PI(OT)[170]1:GN[178]0:[141]9200
  484. 8178 [139]IT[178]1[167][141]13000:[153]"INTERFERENCE CALLED ON THE PLAY":[137]9500
  485. 8179 [137]6000
  486. 8180 [141]7900:[153]"LOAD    WIDE PASS":TT[178]35:[141]16010:[139]FL[178]1[167][137]10000
  487. 8181 PA(OT)[178]PA(OT)[170]1:[139] XX[179]2[167] PP[178]21:[137]8300
  488. 8182 [139] XX[179]4[167] PP[178]18:[137]8300
  489. 8183 [139] XX[179]5[167] PP[178]20:[137]8300
  490. 8185 [139] XX[179]6[167] PP[178]20:PR[178]2:[137]8400
  491. 8186 [139] XX[179]8[167] PP[178]18:PR[178]3:[137]8400
  492. 8187 PP[178]21:PR[178]4:[137]8400
  493. 8190 [141]7900:[153]"LOAD    WIDE PASS":TT[178]45:[141]16010:[139]FL[178]1[167][137]10000
  494. 8191 PA(OT)[178]PA(OT)[170]1:[139] XX[179]2[167] PP[178]21:PR[178]8:[137]8400
  495. 8192 [139] XX[179]4[167] PP[178]18:PR[178]10:[137]8400
  496. 8193 [139] XX[179]6[167] PP[178]20:PR[178]12:[137]8400
  497. 8194 [139] XX[179]8[167] PP[178]20:PR[178]9:[137]8400
  498. 8195 PP[178]18:PR[178]10:[137]8400
  499. 8200 [141]7900:[153]"LOAD     LONG PASS":TT[178]50:[141]16010:[139]FL[178]1[167][137]10000
  500. 8201 PA(OT)[178]PA(OT)[170]1:[139] XX[179]3[167]PP[178]35:[137]8205
  501. 8202 [139] XX[179]5[167]PP[178]40:[203] [164]8205
  502. 8203 [139]XX[179]8[167]PP[178]44:[137]8205
  503. 8204 PP[178]48
  504. 8205 [139]YY[179]5 [167] [137] 8207:[143] *** INCOMPLETE ***
  505. 8206 [153]"INTERCEPTED BY DEFENSE " PP "YDS FROM LINE":[137]9300
  506. 8207 [153]"" PP" YARD PASS -- INCOMPLETE":PI(OT)[178]PI(OT)[170]1:GN[178]0:[141]9200
  507. 8208 [139]IT[178]1[167][141]13000:[153]"INTERFERENCE CALLED ON THE PLAY":[137]9500
  508. 8209 [137]6000
  509. 8210 [141]7900:[153]"LOAD    LONG PASS":TT[178]40:[141]16010:[139]FL[178]1[167][137]10000
  510. 8211 PA(OT)[178]PA(OT)[170]1:[139] XX[179]2[167] PP[178]30:[137]8300
  511. 8212 [139] XX[179]4[167] PP[178]35:[137]8300
  512. 8213 [139] XX[179]5[167] PP[178]40:[137]8300
  513. 8215 [139] XX[179]6[167] PP[178]30:PR[178]2:[137]8400
  514. 8216 [139] XX[179]8[167] PP[178]35:PR[178]3:[137]8400
  515. 8217 PP[178]40:PR[178]3:[137]8400
  516. 8220 [141]7900:[153]"LOAD    LONG PASS":TT[178]45:[141]16010:[139]FL[178]1[167][137]10000
  517. 8221 PA(OT)[178]PA(OT)[170]1:[139] XX[179]2[167] PP[178]30:PR[178]28:[137]8400
  518. 8222 [139] XX[179]4[167] PP[178]35:PR[178]25:[137]8400
  519. 8223 [139] XX[179]6[167] PP[178]40:PR[178]22:[137]8400
  520. 8224 [139] XX[179]8[167] PP[178]35:PR[178]28:[137]8400
  521. 8225 PP[178]40:PR[178]21:[137]8400
  522. 8230 [141]7900:[153]"LOAD  LONG PASS ATTEMPT":[153]"QUARTERBACK UNDER PRESSURE"
  523. 8231 [141]9200:TT[178]10:[141]16010:[139]FL[178]1[167] [137]10000
  524. 8232 [139][187](.)[179]0.08[167] [153]"QUARTERBACK SCRAMBLES, THEN RUNS":[137]3200
  525. 8234 [139][187](.)[179]0.08[167] [153]"QUARTERBACK SCRAMBLES, THEN THROWS":[137]8240
  526. 8235 [153]"     QUARTERBACK SACKED":[139]XX[179]3[167] GN[178][171]12:[137]8239
  527. 8236 [139]XX[179]5[167]GN[178][171]9:[137]8239
  528. 8237 [139]XX[179]8[167] GN[178][171]10:[137]8239
  529. 8238 GN[178][171]13
  530. 8239 TT[178]35:[141]16010:[137]8006:[143]**LOSS
  531. 8240 [141]9200:[139]YY[179]6[167] [137]3860:[143]**LONG
  532. 8242 [139]YY[179]7[167] [137] 3420:[143]**SCREEN
  533. 8244 [139]YY[179]8[167] [137] 3520:[143]**HOOK
  534. 8248 [137]3610:[143]**POST
  535. 8250 [141]7900:[153]"LOAD    SHORT KICK":TT[178]30:[141]16010
  536. 8251 KI(OT)[178]KI(OT)[170]1:[139]XX[179]3[167]KY[178]38:[137]8270
  537. 8252 [139]XX[179]5[167]KY[178]42:[137]8270
  538. 8253 [139]XX[179]7[167]KY[178]45:[137]8270
  539. 8254 KY[178]47:[137]8270
  540. 8260 [141]7900:[153]"LOAD    LONG KICK":TT[178]35:[141]16010
  541. 8261 KI(OT)[178]KI(OT)[170]1:[139]XX[179]3[167]KY[178]50:[137]8270
  542. 8262 [139]XX[179]5[167]KY[178]52:[137]8270
  543. 8263 [139]XX[179]8[167]KY[178]50:[137]8270
  544. 8264 KY[178]54:[137]8270
  545. 8270 [153]"KICK IS" KY" YARDS":KY(OT)[178]KY(OT)[170]KY:GN[178]KY
  546. 8272 [141]8710:[153]
  547. 8278 [139]YL[177]0[167] [153]"RECEIVED ON THE" YL" YARD LINE":[137]8500
  548. 8279 [139]YL[179][171]19[167][153]"OVER THE DEAD BALL LINE":X[178]OT:OT[178]DT:DT[178]X:[137]8665
  549. 8280 LR[178][171]YL:[153]"RECEIVED" LR" YARDS BEHIND THE GOAL LINE":[137]8600
  550. 8300 [153] PP" YARD PASS, INCOMPLETE":GN[178]0:PE[178]0
  551. 8310 [139]IT[178]1[167][141]13000:[153]"  --INTERFERENCE CALLED ON THE PLAY":[137]9500
  552. 8320 GN[178]0:PI(OT)[178]PI(OT)[170]1:[137]6000
  553. 8400 [139]N[178]DT[167][139]PP[177]YL[170]19[167] [153]PP"PASS COMPLETE,--OUT OF BOUNDS":[137]8320
  554. 8408 [139] DD[178]1[167] [153]"    RUNNER BREAKS AWAY WAIT":PR[178]PR[172]2
  555. 8410 [141]9200:GN[178]PP[170]PR:[153] PP"YD PASS AND"PR"YD RUN="GN"YARD GAIN"
  556. 8430 [139]PE[178]1[167] [141]11000:[139]CC$[178]"A"[167] CC$[178]"0":[137]11300
  557. 8440 PC(OT)[178]PC(OT)[170]1:P(OT)[178]P(OT)[170]GN:[137]6000
  558. 8500 X[178]OT:OT[178]DT:DT[178]X:[143] ** RUNBACK **
  559. 8510 [141]7900:[139](L6[170]L7[170]L8)[177]1[175]B5[178]1 [167] [137]8550:[143]**LONG**
  560. 8520 [153]"   SHORT RUNBACK":[139]XX[179]3[167]RB[178]3:[137]8580
  561. 8522 [139]XX[179]5[167]RB[178]5:[137]8580
  562. 8524 [139]XX[179]7[167]RB[178]7:[137]8580
  563. 8526 RB[178]8:[137]8580
  564. 8550 [153]"   LONG RUNBACK":[139]XX[179]3[167]RB[178]10:[137]8580
  565. 8552 [139]XX[179]5[167]RB[178]12:[137]8580
  566. 8554 [139]XX[179]7[167]RB[178]15:[137]8580
  567. 8556 RB[178]17:[137]8580
  568. 8580 [153]"     --" RB" YARDS":RB(OT)[178]RB(OT)[170]RB:GN[178]RB:[141]8710
  569. 8582 [139]YL[179]1[167] [137]8660
  570. 8585 [153]"FIRST DOWN " PL$(OT)" ON THE" YL"YARD LINE":TG[178]10:DN[178]1
  571. 8587 GY[178]0:GF[178]0:[141]9200:[137]15050
  572. 8600 X[178]OT:OT[178]DT:DT[178]X:[153]" DO YOU WANT TO TRY TO (R)UN IT OUT?"
  573. 8610 [153]"    --OR DO YOU (C)ONCEDE THE POINT?"
  574. 8620 [161]DD$:[139]DD$[178]""[167] 8620
  575. 8630 [139]DD$[178]"R"[167] [137]8510
  576. 8640 [139]DD$[178]"C"[167] [137]8665
  577. 8645 [139]DD$[179][177]"R" [176]DD$[179][177]"C"[167] [137]8620
  578. 8660 [153]"YOU DIDN'T GET OUT"
  579. 8665 [141]9200
  580. 8667 [153]"LOAD    * * * * * * * * *"
  581. 8670 [153]"    *               *"
  582. 8672 [153]"    *   ONE POINT WAIT  *"
  583. 8674 [153]"    *               *
  584. 8676 PRINT"    * * * * * * * * *":PRINT""
  585. 8678 SC(DT)=SC(DT)+1:GOSUB16600
  586. 8680 IF GF=1 THEN GF=0:IFGY>35THENGOTO8690
  587. 8685 YL=35:GY=0:GOTO8585
  588. 8690 YL=GY:GY=0:GOTO8585
  589. 8710 IFN=OT THEN YL=YL+GN:GOTO8730
  590. 8720 YL=YL-GN
  591. 8730 IFYL>55THEN GOSUB7000
  592. 8740 RETURN
  593. 8800 GOSUB7900:PRINT"[147]  FIELD GOAL ATTEMPT":TT=30:GOSUB16010
  594. 8804 GF=1:GY=YL:FA(OT)=FA(OT)+1:IFYL<21ANDXX<9THEN GOTO8850
  595. 8806 IFYL<31ANDXX<8THEN GOTO8850
  596. 8808 IFYL<36ANDXX<7THEN GOTO8850
  597. 8810 IFYL<41ANDXX<5THEN GOTO8850
  598. 8812 IFYL<46ANDXX<2THEN GOTO8850
  599. 8820 IFYL<34 THEN GOTO8840
  600. 8825 IFRND(1)<0.7 THEN GOTO8840
  601. 8830 KL=35:YL=YL-KL:PRINT"KICK IS SHORT"
  602. 8835 PRINT"  --RECEIVED ON THE " YL"YARD LINE":GOTO8500
  603. 8840 PRINT"KICK IS WIDE"
  604. 8845 YL=-13:PRINT" RECEIVED 13 YDS BEHIND THE GOAL LINE":GOTO8600
  605. 8850 PRINT"         * * * * * * * * * *"
  606. 8855 PRINT"         *                 *"
  607. 8860 PRINT"         *    IT'S GOOD [146]   *"
  608. 8865 PRINT"         *                 *"
  609. 8870 PRINT"         * * * * * * * * * *"
  610. 8875 FS(OT)=FS(OT)+1:SC(OT)=SC(OT)+3:GOSUB16600:GY=0
  611. 8880 PRINT"[147]":PRINT PL$(DT)" NOW HAS THE OPTION OF:"
  612. 8885 PRINT" (K)ICK OFF FROM THE 35 YARD LINE"
  613. 8890 PRINT"    --YOU HAVE THE CHOICE OF"
  614. 8895 PRINT"      KICK OR RECEIVE"
  615. 8897 PRINT" (F)IRST DOWN FROM YOUR 35 YARD LINE"
  616. 8898 PRINT" ENTER (K) OR (F)"
  617. 8900 GETKK$:IFKK$=""THEN 8900
  618. 8905 IF KK$="K"THEN GOTO13200
  619. 8910 IFKK$="F"THENYL=35:DN=1:GF=0:TG=10:X=OT:OT=DT:DT=X:N=OT:GOTO15050
  620. 8915 IFKK$<>"F" OR KK$<>"K" THEN GOTO8900
  621. 9000 FR=0:FL=0:PE=0:IT=0:XX=0:YY=0:DD=0
  622. 9001 IF RND(.)<0.05THEN FR=1
  623. 9010 IF RND(.)<0.05THEN FL=1
  624. 9020 IF RND(.)<0.05 THEN PE=1
  625. 9030 IF RND(.)<0.05 THEN IT=1
  626. 9035 IF RND(.)<0.15THEN DD=1
  627. 9040 XX=INT(10*RND(1))
  628. 9050 YY=INT(10*RND(.))
  629. 9060 RETURN
  630. 9200 FOR DL=1 TO 1000:NEXT:RETURN
  631. 9300 REM ***  INTERCEPTION **
  632. 9310 IFPE=1THEN GOTO9700
  633. 9320 IFN=DTTHENIFPP>YL+19THENPRINT"     OUT OF BOUNDS":GOSUB9395:GOTO6000
  634. 9322 IFN=DTTHENIFPP>=YLTHEN PRINT"   BEHIND THE GOAL LINE":GOSUB9396:GOTO9380
  635. 9324 IFN=OTTHENIF-PP>=YLTHEN PRINT" BEHIND THE GOAL LINE":GOSUB9396:GOTO9850
  636. 9330 PRINT PL$(DT) "  NOW HAS THE BALL":PRINT"      ---RUNBACK":GOSUB7900
  637. 9340 GOTO9400
  638. 9380 X=OT:OT=DT:DT=X
  639. 9384 PRINT" FIRST DOWN "PL$(OT)" FROM THE 25 YARD LINE"
  640. 9386 GOSUB13020:PX(OT)=PX(OT)+1:YL=25:DN=1:TG=10:GOTO15050
  641. 9395 PRINT"PASS INCOMPLETE":PI(OT)=PI(OT)+1:GN=0:GOSUB13000
  642. 9396 IFPE=0THENRETURN
  643. 9397 GOSUB9200:PRINT"BUT THERE WAS A FLAG ON THE PASS PLAY":GOSUB9200
  644. 9398 PRINT:PRINTPE$ " BY THE "PZ$:PRINT" --PENALTY DECLINED":RETURN
  645. 9400 REM **** RUNBACK ***
  646. 9405 X=OT:OT=DT:DT=X
  647. 9415 IFXX<2THENRB=4:GOTO9440
  648. 9420 IFXX<4THENRB=6:GOTO9440
  649. 9425 IFXX<6THENRB=10:GOTO9440
  650. 9430 IFXX<8THENRB=15:GOTO9440
  651. 9435 RB=20
  652. 9440 PRINT"RUNBACK IS " RB "YARDS":TT=15:GOSUB16010
  653. 9450 GN=PP-RB:GN=-GN:TG=-90:SD=1:PX(OT)=PX(OT)+1:RB(OT)=RB(OT)+RB:GOSUB9396
  654. 9455 PRINT"THERE IS A GAIN OF "(-GN)"YDS. ON THE PLAY":GOSUB13020:GOTO6000
  655. 9500 REM ***INTERFERENCE**
  656. 9505 GOSUB9200
  657. 9510 IF N=DT ANDPP>YL+19 THEN PRINT"   OUT OF BOUNDS":GOTO9630
  658. 9515 PE(DT)=PE(DT)+1
  659. 9520 IF N=DT ANDPP>YL THEN PRINT"  BEHIND THE GOAL LINE":GOTO9600
  660. 9530 IF N=DT ANDPP<1 ANDYL<20 THEN GOTO9580
  661. 9540 PY=PP
  662. 9550 IF PP<1 THEN PY=10
  663. 9560 GN=PY:PY(DT)=PY(DT)+GN:PRINT" PASS DECLARED COMPLETE"
  664. 9565 PRINT" GAIN IS" GN" YARDS":TG=-90:GOTO6000
  665. 9580 PY=INT(YL/2):YL=YL-PY:DN=1:TG=YL:GOTO9608
  666. 9600 DN=1:TG=1:PY=YL-1:YL=1
  667. 9608 IF YL=0 THEN YL=1
  668. 9610 PRINT" FIRST DOWN "PL$(OT)" FROM "YL"YARD LINE"
  669. 9620 PY(DT)=PY(DT)+PY:GOTO15050
  670. 9630 PRINT"   PASS INCOMPLETE":GN=0:GOSUB13000:GOTO6000
  671. 9700 GOSUB7900
  672. 9710 IFYY<5THENPZ=3:PZ$="OFFENSE":GOTO9730:REM---NO PENALTY
  673. 9720 IFYY>4THEN PZ=1:PZ$="DEFENSE":REM---YES PLAY THE PENALTY
  674. 9730 IFXX<5THENPE$="OFFSIDE":PY=5:GOTO9760
  675. 9740 IFXX<8THENPE$="HOLDING":PY=10:GOTO9760
  676. 9750 PE$="ILLEGAL BLOCKING":PY=10
  677. 9760 IF PZ=3 THEN GOTO9320
  678. 9765 GOSUB9200:PRINT"     RUNBACK IS 15 YARDS"
  679. 9770 GOSUB9200:PRINT"BUT THERE WAS A FLAG ON THE PASS PLAY":GOSUB9200
  680. 9780 PRINT:PRINTPE$ " BY THE " PZ$:PRINT" --PENALTY ACCEPTED, NO INTERCEPTION"
  681. 9800 IFOT=NTHEN IFYL-PY<(YL/2)THEN PY=INT(YL/2):IFYL=1THENPY=0
  682. 9810 PRINT PY "YARD PENALTY"
  683. 9820 GN=PY:PE(DT)=PE(DT)+1:PY(DT)=PY(DT)+PY:DN=DN-1:GOSUB13020:GOTO6000
  684. 9850 PX(DT)=PX(DT)+1:GOTO7050
  685. 10000 REM *** FUMBLE AT LINE ***
  686. 10002 PRINT"THERE IS A FUMBLE IN THE BACKFIELD":GOSUB9200
  687. 10005 YY=INT(RND(1)*5)+1
  688. 10010 ON YY GOTO10100,10150,10200,10300,10400
  689. 10100 PRINT"RECOVERED BY OFFENSE":GN=-6:GOSUB10900:GOTO10450
  690. 10150 PRINT"RECOVERED BY OFFENSE":GN=-4:GOSUB10900:GOTO10450
  691. 10200 PRINT"RECOVERED BY OFFENSE":GN=-2:GOSUB10900:GOTO10450
  692. 10300 PRINT"RECOVERED BY DEFENSE[146]":GN=5:GOSUB10920:GOTO10460
  693. 10400 PRINT"RECOVERED BY DEFENSE[146]":GN=3:GOSUB10920:GOTO10460
  694. 10450 PRINT GN "YARDS BEHIND LINE OF SCRIMMAGE":GOSUB13020:GOTO6000
  695. 10460 X=OT:OT=DT:DT=X
  696. 10475 PRINT GN "YARDS BEHIND LINE OF SCRIMMAGE"
  697. 10480 PRINT ""PL$(OT) " NOW HAS THE BALL":TG=-90:SD=1:GOSUB13020:GOTO6000
  698. 10500 REM ** FUMBLE AT END OF RUN ***
  699. 10510 FR=0:YY=INT(RND(1)*4)+1
  700. 10520 ON YY GOTO10530,10560,10590,10640
  701. 10530 PRINT"RECOVERED BY OFFENSE":FZ=-6:GN=FZ:GOSUB10900:GOTO10690
  702. 10560 PRINT"RECOVERED BY OFFENSE":FZ=-4:GN=FZ:GOSUB10900:GOTO10690
  703. 10590 PRINT"RECOVERED BY DEFENSE[146]":FZ=5:GN=FZ:GOSUB10920
  704. 10610 PRINT FZ"YARDS BEHIND END OF RUN":GOTO10730
  705. 10640 PRINT"RECOVERED BY DEFENSE[146]":FZ=0:GN=FZ:GOSUB10920
  706. 10660 PRINT" AT END OF RUN":GOTO10730
  707. 10690 PRINT FZ"YARDS BEHIND END OF RUN"
  708. 10710 PRINT"LOSS OF"(-GN) "YDS ON THE FUMBLE":GOSUB13020:GOTO6000
  709. 10730 X=OT:OT=DT:DT=X:PRINT
  710. 10750 PRINT PL$(OT)"  NOW HAS THE BALL":TG=-90:SD=1:GOSUB13020:GOTO6000
  711. 10900 FU(OT)=FU(OT)+1:FY(OT)=FY(OT)+GN:FX(OT)=FX(OT)+1:RETURN
  712. 10920 FU(OT)=FU(OT)+1:FY(OT)=FY(OT)+GN:FX(DT)=FX(DT)+1:RETURN
  713. 11000 REM ***** PENALTY ******
  714. 11002 IFMM<1THEN IF Q=2 ORQ=4 THEN RETURN
  715. 11005 PRINT"BUT THERE WAS A FLAG ON THE PLAY":GOSUB9040:GOSUB9200
  716. 11010 IFYY<5THENPZ=3:PZ$="OFFENSE":GOTO11030
  717. 11020 PZ=1:PZ$="DEFENSE"
  718. 11030 IFXX<3THEN PE$="OFFSIDE":PY=5:GOTO11080
  719. 11035 IFXX<5THEN PE$="ILLEGAL PROCEDURE":PY=5:GOTO11080
  720. 11040 IFXX<7THEN PE$="HOLDING":PY=10:GOTO11080
  721. 11050 IFXX<9THEN PE$="ILLEGAL BLOCKING":PY=10:GOTO11080
  722. 11060 PE$="ROUGHING":PY=15
  723. 11080 IF PZ=3 THEN GOTO11200
  724. 11100 REM*** PENALTY BY DEFENSE
  725. 11101 PRINT "   "PE$ " BY THE " PZ$"
  726. 11110 [153]"DOES " PL$(OT)" (A)CCEPT OR (D)ECLINE"
  727. 11115 [153]"         THE PENALTY?"
  728. 11120 [161] CC$:[139]CC$[178]""[167] 11120
  729. 11130 [139] CC$[178]"D"[167] [153]"PENALTY DECLINED":[142]
  730. 11140 [139] CC$[178]"A"[167] [137]11150
  731. 11145 [139] CC$[179][177]"A" [176]CC$[179][177]"D" [167] [137]11120
  732. 11150 [142]
  733. 11200 [143]*** PENALTY BY OFFENSE
  734. 11201 [153] "  "PE$ " BY THE " PZ$"
  735. 11210 PRINT"DOES " PL$(DT) " (A)CCEPT OR (D)ECLINE"
  736. 11215 PRINT"        THE PENALTY?"
  737. 11220 GET CC$:IFCC$=""THEN 11220
  738. 11230 IF CC$="D"THEN PRINT"PENALTY DECLINED":RETURN
  739. 11240 IF CC$="A"THEN GOTO11250
  740. 11245 IF CC$<>"A" ORCC$<>"D" THEN GOTO11220
  741. 11250 RETURN
  742. 11300 PRINT"PENALTY ACCEPTED"
  743. 11320 IFPZ=3THEN GOTO11350
  744. 11330 IF PZ=1 THEN GOTO11370
  745. 11350 REM *** OFFENSE ***
  746. 11355 IFOT=NTHEN IFYL-PY<(YL/2)THEN PY=INT(YL/2):IFYL=1THENPY=0
  747. 11360 GN=-PY:PRINT"    --PENALTY OF "GN" YARDS"
  748. 11365 PE(OT)=PE(OT)+1:PY(OT)=PY(OT)+GN:DN=DN-1:GOSUB13020:GOTO6000
  749. 11370 REM *** DEFENSE ***
  750. 11375 IFDT=NTHEN IFYL-PY<(YL/2)THEN PY=INT(YL/2):IFYL=1THENPY=0
  751. 11380 GN=PY:PRINT"   --PENALTY OF "GN" YARDS"
  752. 11385 PE(DT)=PE(DT)+1:PY(DT)=PY(DT)+GN:DN=DN-1:GOSUB13020:GOTO6000
  753. 12000 DIM CH(1),PL$(2)
  754. 12002 Q=1
  755. 12008 POKE53280,13:POKE53281,13:POKE646,0
  756. 12010 REM ** CHOOSE TEAM NAMES **
  757. 12020 PRINT"[147]           CHOOSE TEAM NAMES"
  758. 12025 PRINT"    (NO MORE THAN 9 LETTERS, PLEASE)"
  759. 12030 PRINT"PLAYER 1 - YOUR TEAM NAME":PRINT
  760. 12040 INPUT PL$(1)
  761. 12050 PRINT"PLAYER 2 - YOUR TEAM NAME":PRINT
  762. 12060 INPUT PL$(2)
  763. 12070 REM ** COIN TOSS **
  764. 12071 PRINT"[147]        TOSS COIN[146]"
  765. 12080 CT=INT(RND(1)*2)+1
  766. 12090 CH(1)=CT
  767. 12095 MM=15:SS=0:TT=0
  768. 12097 ON CT GOTO 12100,12150
  769. 12100 PRINT ""PL$(CT);"   HAS THE CHOICE"
  770. 12108 PRINT "WILL YOU (K)ICK OR (R)ECEIVE?"
  771. 12110 GET K$:IF K$=""THEN GOTO12110
  772. 12120 IF K$="K"THEN OT=1:DT=2:GOTO12200
  773. 12130 IF K$="R"THEN OT=2:DT=1:GOTO12200
  774. 12140 IF K$<>"K" OR K$<>"R"THEN12108
  775. 12150 PRINT ""PL$(CT);"   HAS THE CHOICE"
  776. 12152 PRINT "WILL YOU (K)ICK OR (R)ECEIVE?"
  777. 12160 GET K$:IF K$=""THEN GOTO12160
  778. 12170 IF K$="K"THEN OT=2:DT=1:GOTO12200
  779. 12180 IF K$="R"THEN OT=1:DT=2:GOTO12200
  780. 12185 IF K$<>"K" OR K$<>"R"THEN12152
  781. 12200 PRINT:PRINT:PRINT PL$(OT); "  WILL KICK OFF":PRINT:PRINT
  782. 12210 PRINT PL$(DT); "  WILL RECEIVE":GOSUB9200
  783. 12220 YL=35:N=OT:IFGF=1THEN GF=0
  784. 12250 REM **KICKOFF**
  785. 12255 PRINT"[147]    ****** KICKOFF ****** "
  786. 12260 IFRND(.)<0.02THEN PRINT"KICK OUT OF BOUNDS,  5 YARD PENALTY":YL=YL-5
  787. 12265 GOSUB9200
  788. 12270 ZZ=INT(10*RND(.))
  789. 12280 IF ZZ<3 THEN KI=50:GOTO12300
  790. 12282 IF ZZ<6 THEN KI=55:GOTO12300
  791. 12284 IF ZZ<9 THEN KI=60:GOTO12300
  792. 12285 KI=65
  793. 12300 PRINT"KICK IS" KI"YARDS":GOSUB9200:YL=YL+KI
  794. 12310 IF YL>55 THEN GOSUB15000
  795. 12320 PRINT"KICK RECEIVED ON " PL$(N)  YL " YARD LINE"
  796. 12325 X=OT:OT=DT:DT=X
  797. 12330 PRINT"  ----RUNBACK":GOSUB13010
  798. 12350 CL=0:RP=0:DD=0
  799. 12351 IF RND(.)<0.08 THEN CL=1
  800. 12355 IF RND(1)<0.08 THEN RP=1
  801. 12357 GOSUB13050
  802. 12360 IF RND(1)<0.2 THEN DD=1
  803. 12370 ZZ=INT(10*RND(.))
  804. 12375 IFZZ<1 THEN GN=12:GOTO12400
  805. 12380 IFZZ<3 THEN GN=15:GOTO12400
  806. 12385 IF ZZ<6THEN GN=17:GOTO12400
  807. 12387 IF ZZ<9THEN GN=19:GOTO12400
  808. 12390 GN=21
  809. 12400 IF DD=1THEN DD=0:PRINT"RUNNER BREAKS AWAY[146]":GN=GN*2:GOSUB9200
  810. 12405 PRINT"RETURN,"  GN "YARDS":GOSUB9200:RT(OT)=RT(OT)+GN:YL=YL+GN
  811. 12410 IF RP=1 THEN PRINT"BUT THERE IS A FLAG ON THE PLAY":GOSUB12550:YL=YL+PY
  812. 12415 IF CL=1 THEN PRINT"BUT THERE IS A FLAG ON THE PLAY":GOSUB12500:YL=YL+PY
  813. 12430 TT=7:DN=1:TG=10:GOSUB16010
  814. 12460 IF YL>55 THEN GOSUB15000
  815. 12480 GOTO15050
  816. 12500 CL=0:PRINT"CLIPPING BY THE OFFENSE":PE(OT)=PE(OT)+1
  817. 12503 PRINT"   15 YARD PENALTY":GOSUB9200:PY(OT)=PY(OT)+15:PY=-15:GOTO12555
  818. 12550 RP=0:PRINT"ROUGH PLAY BY THE DEFENSE":PE(DT)=PE(DT)+1
  819. 12552 PRINT"     25 YARD PENALTY":GOSUB9200:PY(DT)=PY(DT)+25:PY=25:GOTO12560
  820. 12555 IFOT=NTHEN IFYL+PY<(YL/2)THEN PY=-(INT(YL/2)):IFYL=1THENPY=0
  821. 12560 GN=GN+PY
  822. 12563 PRINT"TOTAL RETURN IS " GN"  YDS":RETURN
  823. 13000 REM: *** DELAY ***
  824. 13010 FOR DL=1 TO 1500:NEXT:RETURN
  825. 13020 FOR DL=1 TO 3000:NEXT:RETURN
  826. 13050 IF MM<1 AND Q=2 THEN CL=0:RP=0
  827. 13060 IF MM<1 AND Q=4 THEN CL=0:RP=0
  828. 13070 RETURN
  829. 13100 REM*** KICKOFF FOR SECOND HALF **
  830. 13105 PRINT"[147]"
  831. 13110 IF CH(1)=1 THEN CT=2
  832. 13120 IF CH(1)=2 THEN CT=1
  833. 13130 GOTO12095
  834. 13200 REM***KICKOFF AFTER TOUCHDOWN, FG, AND SAFETY ****
  835. 13205 PRINT"[147]"
  836. 13210 CT=DT
  837. 13230 GOTO12097
  838. 14999 REM *** CONSTANTS ****
  839. 15000 YL=110-YL
  840. 15010 IF N=1THEN N=2:GOTO15030
  841. 15020 IF N=2THEN N=1
  842. 15030 RETURN
  843. 15050 GOSUB13000:PRINT"[147]"
  844. 15053 PRINT" [200]"
  845. 15054 PRINT" [200]DOWN "   DN
  846. 15056 PRINT" [200]BALL IS ON  "PL$(N)"'S"YL    "YARD LINE"
  847. 15062 PRINT" [200]"
  848. 15064 PRINT" [200]"PL$(OT)"  HAS THE BALL"
  849. 15066 PRINT" [200]"
  850. 15068 PRINT" [200]" TG "YARDS TO GO"
  851. 15070 PRINT" [200]"
  852. 15071 PRINT" [200]"
  853. 15072 PRINT" [200]QUARTER"  Q
  854. 15073 PRINT" [200]"
  855. 15074 PRINT" [200]TIME REMAINING"
  856. 15075 PRINT" [200]"
  857. 15076 PRINT" [200]" MM "MINUTES AND"  SS "SECONDS"
  858. 15078 PRINT" [200]"
  859. 15079 PRINT" [200]SCORE"TAB(10)PL$(1)TAB(25)PL$(2)
  860. 15080 PRINT" [200]"TAB(10)SC(1)TAB(25)SC(2)
  861. 15082 PRINT" [200]"
  862. 15085 IF MM<0ANDQ=2 THEN PRINT"     END OF HALF":GOSUB16000:GOTO16060
  863. 15090 IF MM<0ANDQ=4 THEN PRINT"     END OF GAME":GOSUB16000:GOTO16060
  864. 15095 IF MM<0 THEN PRINT"     END OF QUARTER":GOSUB16000:GOTO16060
  865. 15099 GOSUB16500:GOTO4
  866. 16000 MM=15:SS=0:Q=Q+1:RETURN
  867. 16010 IFSC(OT)<SC(DT)ANDQ=4ANDMM<5THENTT=INT(TT/2):PRINT" 'HURRY UP' OFFENSE"
  868. 16012 IFMM<3ANDQ=2THENTT=INT(TT/2)
  869. 16014 IFMM<3ANDQ=4THENTT=INT(TT/2)
  870. 16018 SS=SS-TT:REM ** RECORD TIME**
  871. 16020 IFSS<0 THEN SS=SS+60:MM=MM-1
  872. 16030 RETURN
  873. 16060 PRINT"WOULD YOU LIKE TO SEE THE STASTICS?"
  874. 16070 PRINT"        (Y)ES OR (N)O"
  875. 16075 GETYY$:IFYY$=""THEN16075
  876. 16080 IF YY$="Y" THEN GOTO16110
  877. 16090 IF YY$="N" THEN GOTO16400
  878. 16095 IFYY$<>"Y" OR YY$<>"N"THEN GOTO 16070
  879. 16110 PRINT"[147]         TOTAL STATISTICS":PRINT
  880. 16130 PRINTTAB(16);PL$(1);TAB(28)PL$(2):PRINT
  881. 16140 PRINT"[160]YDS RUSHING"TAB(20)R(1),R(2)
  882. 16150 PRINT" YDS PASSING"TAB(20)P(1),P(2)
  883. 16151 PRINT" FIRST DOWNS"TAB(20)F(1),F(2):PRINT
  884. 16152 PRINT" PASSES ATT'D/COMP"TAB(20)PA(1)"/"PC(1),PA(2)"/"PC(2)
  885. 16157 PRINT"   INTERCEPTED BY"TAB(20)PX(1),PX(2)
  886. 16160 PRINT" F.GOALS ATT'D/SUC"TAB(20)FA(1)"/"FS(1),FA(2)"/"FS(2)
  887. 16170 PRINT:PRINT"[160]FUMBLES/REC'D"TAB(20)FU(1)"/"FX(1),FU(2)"/"FX(2)
  888. 16180 PRINT"   YARDS"TAB(20)FY(1),FY(2)"
  889. 16200 [153]" PENALTIES/YDS"[163]20)PE(1)"/"PY(1),PE(2)"/"PY(2):[153]
  890. 16230 [153]" NUMBER OF KICKS"[163]20)KI(1),KI(2)
  891. 16240 [153]" YARDS KICKING"[163]20)KY(1),KY(2)
  892. 16245 [153]" YDS RUNBACK"[163]20)RB(1),RB(2)
  893. 16250 [153]" SCORE"[163]20)SC(1),SC(2)
  894. 16400 [153]"PRESS ANY KEY TO CONTINUE"
  895. 16410 [161]YY$:[139]YY$[178]""[167]16410
  896. 16420 [139]Q[178]2 [176] Q[178]4 [167] [137]15050
  897. 16430 [139]Q[178]1 [176] Q[178]3 [167] [137]13100
  898. 16440 [153]"LOAD   THAT WAS A GOOD GAME"
  899. 16450 [153]" WE MUST TRY IT AGAIN SOON"
  900. 16452 [153]"WOULD YOU LIKE TO PLAY AGAIN"
  901. 16454 [133] A$ : [139] A$ [178]"Y" [167] [137] 1
  902. 16456 [153]"LOADWOULD YOU LIKE TO REBOOT THE AUTOLOAD"
  903. 16458 [133] N$ :[139] N$[178]"Y" [167] [153]"LOADING...":[147]"AUTOBOOT",8
  904. 16460 [128]
  905. 16500 [153]"PRESS ANY KEY TO CONTINUE"
  906. 16510 [161]YY$:[139]YY$[178]""[167]16510
  907. 16520 [142]
  908. 16600 [153]"     SCORE"
  909. 16610 [153],PL$(1),PL$(2):[153]
  910. 16620 [153],SC(1),SC(2):[141]13020:[142]
  911. 18000 [151] 45,[194](174)
  912. 18010 [151] 46,[194](175)
  913. 18020 [151] 47,[194](45)
  914. 18030 [151] 48,[194](46)
  915. 18040 [151] 49,[194](45)
  916. 18050 [151] 50,[194](46)
  917. 18060 [153][199](142)
  918. 18070 [142]
  919. 20000 [159]15,8,15:[152]15,"S0:FOOTBALL":[148]"0:FOOTBALL",8:[160]15
  920.